;
; Compile the net259 homepage
;

failat 21

pcd at:www/x

; buildup list of nodes in 2:259
gfindxxx >RAM:259t n 2:259/* #? lformat="%t<TR><TD>%S<TD> %3<TD> <A HREF=%qmailto:%g.fido.zetnet.co.uk%q>%s</A><TD> %l<TD> %O<TD> %i" quiet

; Sort the list
sort RAM:259t RAM:259t

; Join parts and add update date...
type fido259h.html >RAM:fido259.html
type RAM:259t >>RAM:fido259.html
echo "</TABLE><P>Table last updated " >>RAM:fido259.html NOLINE
echo `date` >>RAM:fido259.html
echo ", using " >>RAM:fido259.html NOLINE
echo `dir nodelist:nodelist.???` >>RAM:fido259.html
echo "</P>" >>RAM:fido259.html
type fido259t.html >>RAM:fido259.html
delete RAM:259t QUIET

; bit more speed...
copy SC:C/splat RAM:
cd RAM:

; Troublesome node name ;)
splat -o "\x3e Ultraworld \x3c" "Ultraworld" fido259.html

; Remove housekeeping nodes
splat -o "<TR><TD>Aberdeen Hub<TD> 2:259/300<TD> <A HREF=*"mailto:iain.sherrit@f300.n259.z2.fido.zetnet.co.uk*">Iain Sherrit</A><TD> Aberdeen<TD> 44-1224-709833<TD> 24hr" "<!-- Aberdeen Hub 2:259/300 -->" fido259.html
splat -o "<TR><TD>Livingston Hub<TD> 2:259/400<TD> <A HREF=*"mailto:walter.hampson@f400.n259.z2.fido.zetnet.co.uk*">Walter Hampson</A><TD> Livingston<TD> 44-1506-493620<TD> 24hr" "<!-- Livingston Hub 2:259/400 -->" fido259.html
splat -o "<TR><TD>Scottish Net<TD> 2:259/0<TD> <A HREF=*"mailto:frank.peterson@f0.n259.z2.fido.zetnet.co.uk*">Frank Peterson</A><TD> Friockheim<TD> 44-1241-828793<TD> 24hr" "<!-- Scottish Net 2:259/0 -->" fido259.html
splat -o "<TR><TD>Glasgow Hub<TD> 2:259/100<TD> <A HREF=*"mailto:peter.waddell@f100.n259.z2.fido.zetnet.co.uk*">Peter Waddell</A><TD> Glasgow<TD> 44-1416-327568<TD> 24hr" "<!-- Glasgow Hub 2:259/100 -->" fido259.html

; Add BBS homepages
splat -o "Mlv's Mailer" "<A HREF=*"http://www.wintermute.co.uk/users/mlv/*">Mlv's Mailer</A>" fido259.html
splat -o "Renegade BBS" "<A HREF=*"http://www.scms.rgu.ac.uk/students/cs_yr92/ra/Rene1.html*">Renegade BBS</A>" fido259.html
splat -o "The Cookie Jar" "<A HREF=*"http://www.dcs.napier.ac.uk/~bsc117*">The Cookie Jar</A>" fido259.html
splat -o "Touchdown BBS" "<A HREF=*"http://www.netlink.co.uk/users/greenock/ian/ian.html*">Touchdown BBS</A>" fido259.html
splat -o "Matt's Mailer" "<A HREF=*"http://users.colloquium.co.uk/~cbm_assoc/index.htm*">Matt's Mailer</A>" fido259.html
splat -o "Bell BBS" "<A HREF=*"http://www.bell.ac.uk*">Bell BBS</A>" fido259.html
splat -o "Verities & Balderdash" "<A HREF=*"http://dialspace.dial.pipex.com/peterw/vb.htm*">Verities & Balderdash</A>" fido259.html
;splat -o "" "<A HREF=*"*"></A>" fido259.html

; Add email addresses
splat -o "mike.henderson@f15.n259.z2.fido.zetnet" "mike@cengine.demon" fido259.html
splat -o "alan.mulvie@f38.n259.z2.fido.zetnet.co.uk" "100566.1444@compuserve.com" fido259.html
splat -o "robin.abecasis@f78.n259.z2.fido.zetnet.co" "mailto:cs4ra@scms.rgu.ac" fido259.html
splat -o "michael.cooke@f18.n259.z2.fido.zetnet.co" "bsc117@dcs.napier.ac" fido259.html
splat -o "peter.waddell@f69.n259.z2.fido.zetnet.co.uk" "peterw@dial.pipex.com" fido259.html
splat -o "david.bryce@f95.n259.z2.fido.zetnet" "david@rsc" fido259.html
splat -o "andrew.dowds@f65.n259.z2.fido.zetnet" "adowds@cix.compulink" fido259.html
splat -o "andrew.dowds@f66.n259.z2.fido.zetnet" "adowds@cix.compulink" fido259.html
splat -o "ian.scott@f67.n259.z2.fido.zetnet" "ian@touchdwn.demon" fido259.html
splat -o "matt.mcqueen@f47.n259.z2.fido.zetnet" "cbm_assoc@cqm" fido259.html
splat -o "brian.keir@f50.n259.z2.fido.zetnet" "brian.keir@nessies.demon" fido259.html
splat -o "dave.macfarlane@f41.n259.z2.fido.zetnet.co.uk" "arrochar@aol.com" fido259.html
;splat -o "" "" fido259.html

; Finishup
delete splat QUIET
delete >NIL: at:www/fido259.html
copy fido259.html TO AT:www/ QUIET

; And while we are at it, lets archive
cd at:www
delete >NIL: www.lha
lha >NIL: a www.lha #?

; fini, cd back to where we were...
pcd